home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / StopMenuUpd.lha / StopMenuUpdate / Update < prev    next >
Encoding:
Text File  |  2000-06-30  |  1.6 KB  |  111 lines
  1.  
  2. ; StopMenu  Update Script
  3.  
  4. ; $Id: Update,v 1.2 2000/06/30 08:54:20 damir Rel $
  5.  
  6. ; (C)2000 Damir Arh
  7.  
  8.  
  9. ; Updates StopMenu from V1.02+ to V1.03
  10.  
  11.  
  12. ;-------------------------------------------------
  13.  
  14. ; string declaration
  15.  
  16. (set #abort
  17.     (cat "You don't have StopMenu installed.\n"
  18.         "You'll have to install the full package.")
  19. )
  20.  
  21. (set #copy-prefs
  22.     (cat "Copying new program files")
  23. )
  24.  
  25. (set #delete
  26.     (cat "Deleting obsolete documentation")
  27. )
  28.  
  29. (set #make-dir
  30.     (cat "Recreating the docmuentation drawer")
  31. )
  32.  
  33. (set #copy-docs
  34.     (cat "Copying new documentation")
  35. )
  36.  
  37. (set #copy-icon
  38.     (cat "Copying a new icon")
  39. )
  40.  
  41. (set #exit
  42.     (cat "Congratulations!\n"
  43.         "You have succesfully updated StopMenu.")
  44. )
  45.  
  46.  
  47. ;-------------------------------------------------
  48.  
  49. ; initialization
  50.  
  51. (set #source-dir (pathonly @icon))
  52.  
  53. (set @default-dest "StopMenu:")
  54.  
  55. (if (= (exists @default-dest (noreq)) 0)
  56.     (abort )
  57. )
  58.  
  59. (complete 20)
  60.  
  61.  
  62. ;------------------------------------------------
  63.  
  64. ; copying
  65.  
  66. (copyfiles
  67.     (prompt #copy-prefs)
  68.     (source (tackon #source-dir "Prefs"))
  69.     (dest @default-dest)
  70. )
  71.  
  72. (complete 40)
  73.  
  74. (copyfiles
  75.     (prompt #copy-prefs)
  76.     (source (tackon #source-dir "StopMenu"))
  77.     (dest @default-dest)
  78. )
  79.  
  80. (complete 60)
  81.  
  82. (copyfiles
  83.     (prompt #copy-docs)
  84.     (source (tackon #source-dir "StopMenu.guide"))
  85.     (dest (tackon @default-dest "docs"))
  86. )
  87.  
  88. (complete 80)
  89.  
  90. (if (exists "StopMenu:glowicons" (noreq))
  91.     (set #icon "glowicons/program")
  92.     (set #icon "icons/program")
  93. )
  94.  
  95.  
  96. (copyfiles
  97.     (prompt #copy-info)
  98.     (source (tackon #source-dir "WBWindows.info"))
  99.     (dest (tackon @default-dest #icon))
  100. )
  101.  
  102. (complete 100)
  103.  
  104.  
  105. ;-------------------------------------------------
  106.  
  107. ; update completed
  108.  
  109. (exit #exit)
  110.  
  111.